!ifndef box1 
	$dialog message text "Не задана выделенная область 1"
!else        
	$dialog save filter "TIF - Tagged Image File Format|*.tif;*.tiff|Все файлы|*.*" title "Сохранить выделенную область" ext "tif"
	!path = path
	!ifdef path
        	$draw pid !box1 proj off  // выводим экстент области и epsg, выключаем область
		!ext  = extent
		!code = epsg
                !ifdef ext code
                	$dialog select title "Размер пикселя" text "0.5|1|2|3|5|10|15|30|90"
			!ps=select
                        !ifdef ps
                		$dialog select title "Сохранять ..." text "одним файлом<0>|тайлами 256x256<256>|тайлами 512x512<512>|тайлами 1024x1024<1024>|частями 2x2<2 2>|частями 3x3<3 3>|частями 4x4<4 4>"
				!parts=select
        	                !ifdef parts
	                        	icreate epsg !code extent !ext pixsize !ps // создаем оперативный растр
					!r_id = id
					!ifdef r_id
						isave flip file !path id !r_id parts !parts bands 1 2 3 drv "GTiff|BLOCKXSIZE=256|BLOCKYSIZE=256|TILED=YES|COMPRESS=LZW|BIGTIFF=IF_SAFER"   // сохраняем растр в файл
						ifree id !r_id // удаление растра
						$dialog message text "Область сохранена"
					!delete r_id
					!endif
				!delete parts
				!endif
			!delete ps
			!endif
		!delete ext
		!delete code
		!else
			$dialog message text "Не задана геопроекция"
		!endif
		$draw pid !box1 on      // включаем выделенную область обратно
	!delete path
	!endif
!endif
